home *** CD-ROM | disk | FTP | other *** search
- //--- OBJECT WRITE BEGIN ---
- new GuiControl(SaveFileDlgEx) {
- profile = "GuiDialogProfile";
- horizSizing = "right";
- vertSizing = "bottom";
- fitParentWidth = "0";
- fitParentHeight = "0";
- position = "0 0";
- extent = "800 600";
- minExtent = "8 8";
- visible = "1";
- helpTag = "0";
-
- new GuiWindowCtrl() {
- profile = "GuiWindowProfile";
- horizSizing = "center";
- vertSizing = "center";
- fitParentWidth = "0";
- fitParentHeight = "0";
- position = "73 61";
- extent = "653 478";
- minExtent = "8 8";
- visible = "1";
- text = "Save File...";
- maxLength = "255";
- resizeWidth = "1";
- resizeHeight = "1";
- canMove = "1";
- canClose = "1";
- canMinimize = "1";
- canMaximize = "1";
- MinSize = "50 50";
- closeCommand = "Canvas.popDialog(SaveFileDlgEx);";
- helpTag = "0";
-
- new GuiButtonCtrl() {
- profile = "GuiButtonProfile";
- horizSizing = "left";
- vertSizing = "top";
- fitParentWidth = "0";
- fitParentHeight = "0";
- position = "513 449";
- extent = "60 20";
- minExtent = "8 8";
- visible = "1";
- command = "DoSaveFileExCallback();";
- text = "Save";
- groupNum = "-1";
- buttonType = "PushButton";
- helpTag = "0";
- };
- new GuiButtonCtrl() {
- profile = "GuiButtonProfile";
- horizSizing = "left";
- vertSizing = "top";
- fitParentWidth = "0";
- fitParentHeight = "0";
- position = "583 449";
- extent = "60 20";
- minExtent = "8 8";
- visible = "1";
- command = "Canvas.popDialog(SaveFileDlgEx);";
- text = "Cancel";
- groupNum = "-1";
- buttonType = "PushButton";
- helpTag = "0";
- };
- new GuiTextCtrl() {
- profile = "GuiTextProfile";
- horizSizing = "right";
- vertSizing = "top";
- position = "10 449";
- extent = "89 18";
- minExtent = "8 2";
- visible = "1";
- text = "File name:";
- maxLength = "255";
- };
- new GuiTextEditCtrl(SaveFileExEdit) {
- profile = "GuiTextEditProfile";
- horizSizing = "right";
- vertSizing = "top";
- position = "60 449";
- extent = "286 16";
- minExtent = "8 8";
- visible = "1";
- helpTag = "0";
- maxLength = "255";
- historySize = "0";
- password = "0";
- tabComplete = "0";
- };
-
- new GuiFrameSetCtrl() {
- profile = "GuiDefaultProfile";
- horizSizing = "width";
- vertSizing = "height";
- fitParentWidth = "0";
- fitParentHeight = "0";
- position = "4 24";
- extent = "643 416";
- minExtent = "8 2";
- visible = "1";
- columns = "0 245";
- rows = "0";
- borderWidth = "7";
- borderColor = "206 206 206 206";
- borderEnable = "dynamic";
- borderMovable = "dynamic";
- autoBalance = "0";
- fudgeFactor = "0";
-
- new GuiScrollCtrl() {
- profile = "GuiScrollProfile";
- horizSizing = "right";
- vertSizing = "bottom";
- fitParentWidth = "0";
- fitParentHeight = "1";
- position = "0 0";
- extent = "238 416";
- minExtent = "8 2";
- visible = "1";
- willFirstRespond = "1";
- hScrollBar = "dynamic";
- vScrollBar = "dynamic";
- constantThumbHeight = "0";
- childMargin = "0 0";
-
- new GuiDirectoryTreeCtrl(SaveDirTreeEx) {
- profile = "GuiDirectoryTreeProfile";
- horizSizing = "right";
- vertSizing = "bottom";
- fitParentWidth = "0";
- fitParentHeight = "0";
- position = "2 -670";
- extent = "206 1470";
- minExtent = "8 2";
- visible = "1";
- tabSize = "16";
- textOffset = "2";
- fullRowSelect = "0";
- itemHeight = "21";
- destroyTreeOnSleep = "0";
- MouseDragging = "0";
- MultipleSelections = "0";
- };
- };
-
- new GuiScrollCtrl() {
- profile = "GuiScrollProfile";
- horizSizing = "right";
- vertSizing = "bottom";
- fitParentWidth = "1";
- fitParentHeight = "1";
- position = "245 0";
- extent = "643 416";
- minExtent = "8 2";
- visible = "1";
- willFirstRespond = "1";
- hScrollBar = "alwaysOn";
- vScrollBar = "alwaysOn";
- constantThumbHeight = "0";
- childMargin = "0 0";
-
- new GuiDirectoryFileListCtrl(SaveFileListEx) {
- profile = "GuiDirectoryFileListProfile";
- horizSizing = "right";
- vertSizing = "bottom";
- fitParentWidth = "0";
- fitParentHeight = "0";
- position = "2 2";
- extent = "621 224";
- minExtent = "8 2";
- visible = "1";
- enumerate = "0";
- resizeCell = "1";
- columns = "0";
- fitParentWidth = "1";
- clipColumnText = "0";
- };
- };
- };
- };
- };
- //--- OBJECT WRITE END ---
-
-
- //------------------------------------------------------------------------------
- // ex: getSaveFilenameEx("~/stuff/*.*", saveStuff);
- // -- calls 'saveStuff(%filename)' on ok
- //------------------------------------------------------------------------------
- function getSaveFilename(%filespec, %callback, %currentFile)
- {
- $GuiSaveDialogCallback = %callback;
- if( %filespec $= "" )
- $SaveFileExFileSpec = "*.*";
- else
- $SaveFileExFileSpec = %filespec;
-
- Canvas.pushDialog(SaveFileDlgEx, 99);
-
- $SaveFileExFile = %currentFile;
-
- // If we have a current path, set the tree to it
- if( filePath( %currentFile ) !$= "" )
- SaveDirTreeEx.setSelectedPath( filePath( %currentFile ) );
- else if ( $pref::Constructor::lastPath !$= "" )
- SaveDirTreeEx.setSelectedPath( $pref::Constructor::lastPath );
-
- // Update our file view to reflect the changes
- SaveFileListEx.setPath( SaveDirTreeEx.getSelectedPath(), $SaveFileExFileSpec );
-
- // Update the file edit control
- SaveFileExEdit.setText(fileName($SaveFileExFile));
- }
-
-
- //--------------------------------------
- function DoSaveFileExCallback()
- {
- %path = SaveDirTreeEx.getSelectedPath();
- %file = SaveFileExEdit.getValue();
- %cat = %path @ "/" @ %file;
-
- // MEOW
- echo(%cat);
-
- eval( $GuiSaveDialogCallback @ "(\"" @ %cat @"\");" );
-
- Canvas.popDialog(SaveFileDlgEx);
- }
-
- function SaveDirTreeEx::onSelectPath( %this, %path )
- {
- // Update our file view to reflect the changes
- SaveFileListEx.setPath( %path, $SaveFileExFileSpec );
-
- $pref::Constructor::lastPath = %path;
- }
-
- function SaveFileListEx::onSelect( %this, %listid, %file )
- {
- // Update our file name to the one selected
- SaveFileExEdit.setText( %file );
- }
-